use Flap qw/-m -s -w/;

sub{
    my($self, $sch, $col) = @_;
    my $ci = $sch->column_info($col) || die qq{No column info for: "$col"};
    my $sql = "$ci->{name} $ci->{-t}";
    $sql .= "($ci->{-s})" if defined $ci->{-s};
    $sql .= ' unsigned' if $ci->{-u};
    $sql .= ' NOT NULL' if !$ci->{-n};
    #if(defined(my $d = $ci->{-d})){
    #    $sql .= ' default '.(ref $d ? $$d : "'$d'")
    #}
    $sql;
};
